Chip 2002 June/ChipCD 6.02.iso/software/iesuite/iesuite.CAB/c1.h1

Text File | 2002-04-16 | 823 b | 32 lines

<SCRIPT LANGUAGE=VBScript>
dim refpath,ext, fs,f,file
refpath="%path%\"
set ext = window.external.menuArguments

//±ετΣασ∞ εß·σΩ≥ Σδ  Σε±≥≤∩α Ω ⌠αΘδεΓεΘ ±Φ±≥σ∞σ
Set fs = CreateObject("Scripting.FileSystemObject")

//≤ßσΣΦ∞± , ≈≥ε ∩α∩Ωα Σδ  ≡σ⌠σ≡α≥εΓ ±≤∙σ±≥Γ≤σ≥, σ±δΦ φσ≥ ±ετΣαΣΦ∞
if Not fs.FolderExists(refpath) then set f=fs.CreateFolder(refpath)

//ε≥Ω≡√Γασ∞ ΦδΦ ±ετΣασ∞ ⌠αΘδ ≡σ⌠σ≡α≥α ± Φ∞σφσ∞, ±εε≥Γσ≥±≥Γ≤■∙Φ∞ ταπεδεΓΩ≤ εΩφα
Set file = fs.OpenTextFile(refpath+ext.document.title+".htm",8,true)


//∩εδ≤≈ασ∞ Γ√Σσδσφφ√Θ ⌠≡απ∞σφ≥
set selrange = ext.document.selection.createRange()

// ΣεßαΓδ σ∞ url ΣεΩ≤∞σφ≥α Φ Σα≥≤
file.writeline (ext.document.url)
file.writeline (date)


//ΣεßαΓδ σ∞ σπε Ω ⌠αΘδ≤
file.write(selrange.htmlText)

file.writeline ()
file.writeline ()

file.Close()
</SCRIPT>